home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…eptember: Technology Seed / September 98 ADC Seed CD.toast / LaserWriter 8.6b5 Seed / LaserWriter 8.6b5 / PrintingLib / PrintingLib.rsrc / PS_-8121 < prev    next >
Encoding:
Text File  |  1998-08-12  |  2.7 KB  |  149 lines
  1. %%BeginFile: lw8_euroSpecial-1.0
  2. /nEro
  3. /Symbol findfont
  4. begin
  5. FontType
  6. dup dup
  7. 1 eq exch 42 eq or exch 3 eq or{
  8. currentdict/CharStrings known{
  9. CharStrings/Euro known
  10. }{
  11. true
  12. }ifelse
  13. }{
  14. true
  15. }ifelse
  16. end
  17. def
  18. nEro startnoload
  19. 10 dict begin
  20. /FontInfo 2 dict dup begin
  21. /version(001.000)def
  22. /Notice(Copyright \251 1998 Apple Computer Inc.)def
  23. end def
  24. /FontName/Europatch def
  25. /Encoding StandardEncoding def
  26. /PaintType 0 def
  27. /FontType 1 def
  28. /FontMatrix[0.001 0 0 0.001 0 0]def
  29. /FontBBox{21 -9 714 689}def
  30. currentdict end
  31. dup
  32. /Private 15 dict dup begin
  33. /|-{def}def
  34. /|{put}def
  35. /BlueValues[-19. 0. 487. 500. 673. 688.]|-
  36. /BlueScale 0.0526315789 def
  37. /MinFeature{16 16}|-
  38. /StdHW[92.]def
  39. /StdVW[85.]def
  40. /StemSnapH[92.]def
  41. /StemSnapV[85.]def
  42. /ForceBoldThreshold .5 def
  43. /ForceBold false def
  44. /password 5839 def
  45. /Subrs 16 array
  46. dup 0<118cade7978c9a8ab47e7be71fa277>|
  47. dup 1<118cade79273658a5c>|
  48. dup 2<118cade7927297416d>|
  49. dup 3<118cade712>|
  50. dup 4<118cade795e45b7819d5b190>|
  51. dup 5<118cade712>|
  52. dup 6<118cade712>|
  53. dup 7<118cade79266e29ec4a224>|
  54. dup 8<118cade7926513197e6246425e>|
  55. dup 9<118cade792645d0ab32061e2268dfb>|
  56. dup 10<118cade792638e135e25d183266bd7f81e>|
  57. dup 11<118cade7927439b1>|
  58. dup 12<118cade7e644d1e7a50cacbc>|
  59. dup 13<118cade78f9ed1e3fe>|
  60. dup 14<118cade7e0d1ca3c54>|
  61. dup 15<118cade78f9edf3959>|
  62. |-
  63. 2 index
  64. /CharStrings 2 dict dup begin
  65. /A<118cade7b98bc82571af5aee01f90103a394bff91b0ba5c07ffa5d64ff811d8a387b6ec3142
  66. e3c549269606becee2076d12186aced6d3558a7713c6635c038cf4bf8afc6076160e8ead2af885
  67. 9f19c117df2af5a56fd0c316f31ba13c15c7ce3110f9d01081b9aeb32fbe8a3618047f1e92e6e0
  68. 8818a4bb109a567da3f88883d9eb237a4257a9535d72a66345d6a36508b96c2805a310781de324
  69. fe691942dd7947ac02673d33943c06ae133ef93a7292b6dab>|-
  70. /.notdef<118cade79205cabfe7>|-
  71. end end
  72. put put
  73. dup/FontName get exch definefont pop
  74. nEro endnoload
  75. /subfontdict Z
  76. /subfontcharsize Z
  77. findfont dup
  78. length 2 add dict
  79. begin
  80. {
  81. 1 index/FID ne 2 index/UniqueID ne and
  82. {def}{pop pop}ifelse
  83. }forall
  84. nEro not
  85. {
  86. /subfontdict
  87. [
  88. /Europatch findfont FontMatrix
  89. matrix invertmatrix makefont
  90. dup dup length 2 add dict
  91. begin
  92. {
  93. 1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse
  94. }forall
  95. /PaintType 2 def
  96. /StrokeWidth 12 def
  97. /customfont currentdict
  98. end
  99. definefont
  100. ]def
  101. gsave
  102. initgraphics
  103. /subfontcharsize[
  104. subfontdict 0 get setfont(A)stringwidth
  105. 0 0 moveto(A)true charpath
  106. pathbbox
  107. ]def
  108. grestore
  109. /CharStrings CharStrings
  110. dup length 1 add dict
  111. level2
  112. {
  113. copy
  114. }{
  115. begin
  116. {
  117. def
  118. }forall
  119. currentdict
  120. end
  121. }ifelse
  122. dup
  123. /Euro{
  124. subfontcharsize aload pop
  125. setcachedevice
  126. pop
  127. subfontdict currentdict/PaintType get
  128. dup 0 ne{pop 1}if
  129. get setfont
  130. 0 0 moveto
  131. (A)show
  132. }bind put
  133. def
  134. }if
  135. /Encoding Encoding 256 array copy
  136. dup 240/apple pd
  137. 160/Euro put
  138. def
  139. fontname/customfont eq
  140. {
  141. /Symbol
  142. }{
  143. fontname
  144. }ifelse
  145. currentdict
  146. end
  147. definefont :ff fD
  148. %%EndFile
  149.